object VeresiyeFrom: TVeresiyeFrom Left = 160 Top = 136 Width = 336 Height = 220 ActiveControl = SaklaBtn Caption = 'Veresiye' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object Panel2: TPanel Left = 0 Top = 0 Width = 328 Height = 193 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object ScrollBox: TScrollBox Left = 6 Top = 6 Width = 316 Height = 181 HelpContext = 114 HorzScrollBar.Margin = 6 VertScrollBar.Margin = 6 Align = alClient BorderStyle = bsNone Color = clTeal ParentColor = False TabOrder = 0 object Label1: TLabel Left = 14 Top = 8 Width = 44 Height = 14 Alignment = taRightJustify AutoSize = False Caption = 'BOR�LU' FocusControl = EdBorclu Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 23 Top = 33 Width = 35 Height = 16 Alignment = taRightJustify AutoSize = False Caption = 'BOR�' FocusControl = EditBORC Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 10 Top = 102 Width = 67 Height = 16 AutoSize = False Caption = 'A�IKLAMA' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object SpeedBtnHST: TSpeedButton Left = 264 Top = 5 Width = 21 Height = 20 Hint = 'Hasta Se� F6 Tu�u' Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333303033333333030330303333333303033000000000000003300000000000 00033000000000000003300000000000000330FFFFFFFFFFFFF330CCCCDDDDDD DDD330CCCC555D5555D330BFFCB5D55D55D330B0B3B5DDD5DD53301BF3333333 3333301133333333333330003333333333333333333333333333000000000000 0000000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = SpeedBtnHSTClick end object SpeedBtnCARI: TSpeedButton Left = 289 Top = 5 Width = 21 Height = 20 Hint = 'Cari Se� F5 Tu�u' Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555550000000000055555033333333305555503111111130555550313333313 0555550313333313055555031330331305555503100000130555550310000013 0555550300030003055555031000001305555503100000130555550311101113 0555550333333333055555000000000005555555555555555555000000000000 0000000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = SpeedBtnCARIClick end object SpeedBtnPARA: TSpeedButton Left = 213 Top = 31 Width = 21 Height = 20 Hint = 'Hast Kat. Pay' Glyph.Data = { 10010000424D1001000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005 5B55550202022020BBB55500202020020B5555020202002020555B0020202002 0205BB020202002020055B022020200202055500000000202005555022F22202 02055B55022F22202005BBB55022F22202055B5555022F222005555B555000B0 00B555BBB5B55BBB5BBBB55B5BBB55B555B5BB5555B555555555000000000000 0000000000000000000000000000000000000000} ParentShowHint = False ShowHint = True OnClick = SpeedBtnPARAClick end object Label2: TLabel Left = 2 Top = 58 Width = 56 Height = 14 Alignment = taRightJustify Caption = 'VADE TRH.' Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object LabelLimit: TLabel Left = 148 Top = 56 Width = 6 Height = 14 Caption = '_' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object LabelKalan: TLabel Left = 10 Top = 83 Width = 6 Height = 14 Caption = '_' Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object EditBORC: TDBEdit Left = 59 Top = 29 Width = 147 Height = 22 DataField = 'BORC' DataSource = VerCariSRC MaxLength = 0 TabOrder = 1 OnExit = EditBORCExit end object SaklaBtn: TBitBtn Left = 7 Top = 147 Width = 89 Height = 27 Caption = '&Sakla' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = SaklaBtnClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555 055555555555FF5575F555555550055030555555555775F7F7F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0 305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000 30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550 3055577777555557F7F5550005555559995555777555555777550000} NumGlyphs = 2 end object VazgecBtn: TBitBtn Left = 116 Top = 148 Width = 89 Height = 27 Caption = '&Vazge�' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 2 ParentFont = False TabOrder = 4 OnClick = VazgecBtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object EdBorclu: TEdit Left = 59 Top = 4 Width = 201 Height = 22 Enabled = False TabOrder = 0 end object DBEdBILGI: TDBEdit Left = 6 Top = 118 Width = 297 Height = 22 DataField = 'BILGI' DataSource = VerCariSRC MaxLength = 0 TabOrder = 2 end object DBEditVADE: TDBEdit Left = 59 Top = 54 Width = 78 Height = 22 DataField = 'VADE' DataSource = VerCariSRC MaxLength = 0 TabOrder = 5 end end end object VerCariSRC: TDataSource DataSet = VerCariTab Left = 287 Top = 45 end object VerCariTab: TTable AfterEdit = VerCariTabAfterEdit DatabaseName = 'ECZ' TableName = 'hareket.db' Left = 260 Top = 45 object VerCariTabHAREKNO: TFloatField FieldName = 'HAREKNO' end object VerCariTabCARIKOD: TStringField FieldName = 'CARIKOD' Size = 11 end object VerCariTabALSATNO: TFloatField FieldName = 'ALSATNO' end object VerCariTabTARIH: TDateField FieldName = 'TARIH' DisplayFormat = 'dd/mm/yyyy' EditMask = '!90/90/9900;1; ' end object VerCariTabBORC: TCurrencyField FieldName = 'BORC' end object VerCariTabTUR: TStringField FieldName = 'TUR' Size = 1 end object VerCariTabALSAT: TStringField FieldName = 'ALSAT' Size = 1 end object VerCariTabBILGI: TStringField FieldName = 'BILGI' Size = 36 end object VerCariTabVADE: TDateField FieldName = 'VADE' OnGetText = VerCariTabVADEGetText OnSetText = VerCariTabVADESetText DisplayFormat = 'dd/mm/yyyy' EditMask = '99/99/9999;1;_' end object VerCariTabNIHAI: TSmallintField FieldName = 'NIHAI' end end object HstSecTab: TTable DatabaseName = 'ECZ' IndexFieldNames = 'HASTANO' TableName = 'HASTA.DB' Left = 254 Top = 118 object HstSecTabHASTANO: TIntegerField FieldName = 'HASTANO' end object HstSecTabBORC: TCurrencyField FieldName = 'BORC' end object HstSecTabHASTADI: TStringField FieldName = 'HASTADI' Size = 18 end object HstSecTabHASTASOYAD: TStringField FieldName = 'HASTASOYAD' Size = 18 end object HstSecTabVRSLIMIT: TCurrencyField FieldName = 'VRSLIMIT' end object HstSecTabVRSUYARI: TStringField FieldName = 'VRSUYARI' Size = 1 end object HstSecTabALACAK: TCurrencyField FieldName = 'ALACAK' end end object krmSecTab: TTable DatabaseName = 'ECZ' TableName = 'KRMLAR.DB' Left = 230 Top = 118 object krmSecTabKOD: TStringField FieldName = 'KOD' Required = True Size = 11 end object krmSecTabAD: TStringField FieldName = 'AD' Required = True Size = 36 end object krmSecTabBORC: TCurrencyField FieldName = 'BORC' end object krmSecTabALACAK: TCurrencyField FieldName = 'ALACAK' end end object HarekNoTab: TTable DatabaseName = 'ECZ' TableName = 'HRKNOAL.DB' Left = 286 Top = 118 object HarekNoTabHRKNO: TFloatField FieldName = 'HRKNO' end end object prosesTab: TTable DatabaseName = 'ECZ' TableName = 'PROSES.DB' Left = 88 Top = 112 object prosesTabTARIH: TDateTimeField FieldName = 'TARIH' end object prosesTabACIKLA: TStringField FieldName = 'ACIKLA' Size = 36 end object prosesTabISLETNO: TFloatField FieldName = 'ISLETNO' end object prosesTabTUTAR: TCurrencyField FieldName = 'TUTAR' end object prosesTabISLETIPI: TStringField FieldName = 'ISLETIPI' Size = 15 end end end